﻿Namespace Objetos

    Public Class Pessoa

#Region "Variáveis"

        Private objPessoaFisica As Objetos.PessoaFisica
        Private objPessoaJuridica As Objetos.PessoaJuridica

#End Region

#Region "Propriedades"

        Public Property CodigoPessoa As Integer
        Public Property Situacao As Integer
        Public Property Tipo As Integer

        Public Property PessoaFisica As Objetos.PessoaFisica
            Get
                If objPessoaFisica Is Nothing Then
                    Dim objPessoasFisicas As New Negocios.PessoaFisica
                    objPessoaFisica = objPessoasFisicas.EncontrarPorCodigo(Me.CodigoPessoa)
                End If

                Return objPessoaFisica
            End Get
            Set(ByVal value As Objetos.PessoaFisica)
                objPessoaFisica = value
            End Set
        End Property

        Public Property PessoaJuridica As Objetos.PessoaJuridica
            Get
                If objPessoaJuridica Is Nothing Then
                    Dim objPessoasJuridicas As New Negocios.PessoaJuridica
                    objPessoaJuridica = objPessoasJuridicas.EncontrarPorCodigo(Me.CodigoPessoa)
                End If
                Return objPessoaJuridica
            End Get
            Set(ByVal value As Objetos.PessoaJuridica)
                objPessoaJuridica = value
            End Set
        End Property

#End Region

    End Class

End Namespace

